home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00511.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  18.4 KB  |  509 lines
  1. on printDailyCalendar dayNo
  2.   global printer, gPropFont, previewOnly, usrName, userNo, currentCycleNo, stamp, mucus, relations, endDate, beginDate
  3.   cursor(4)
  4.   set max to count(stamp)
  5.   set w to printer(mGetPageWidth)
  6.   set h to printer(mGetPageHeight)
  7.   printer(mSetTextFont, gPropFont)
  8.   printer(mTextBox, 0, 40, w, 150, 0)
  9.   printer(mSetTextSize, 12)
  10.   printer(mSetTextStyle, "normal,bold")
  11.   printer(mAppendText, getAt(usrName, userNo) & "'s Daily Calendar Page for Day: " & dayNo & "     " && GetLongDate(beginDate + dayNo - 1) & RETURN & RETURN)
  12.   printer(mSetTextSize, 12)
  13.   printer(mSetTextStyle, "normal")
  14.   printer(mAppendText, "Cycle #" & currentCycleNo & RETURN & RETURN & "First Entry: " && GetLongDate(beginDate) & RETURN & "Last Entry: " && GetLongDate(endDate))
  15.   if the hilite of member "color" or (previewOnly = 1) then
  16.     set stampName to "ministamp"
  17.     set relationName to "miniRel"
  18.   else
  19.     set stampName to "graystamp"
  20.     set stampNames to ["     Red", "   Brown", "White Baby", "Yellow Baby", "Brown Baby", "   Yellow", " Peak Day"]
  21.     set relationName to "grayrel"
  22.   end if
  23.   set eachHeight to 170
  24.   printer(mSetTextSize, 14)
  25.   printer(mSetTextStyle, "normal,bold")
  26.   if getAt(stamp, dayNo) <> 0 then
  27.     printer(mPicture, the picture of member (stampName && string(getAt(stamp, dayNo))), 15, eachHeight)
  28.     printer(mDrawText, "Stamp", 4, eachHeight - 5)
  29.     if not (the hilite of member "color") and (previewOnly = 0) then
  30.       printer(mSetTextSize, 12)
  31.       printer(mSetTextStyle, "normal,italic")
  32.       set PlaceNo to getAt(stamp, dayNo)
  33.       if PlaceNo = 10 then
  34.         set PlaceNo to 7
  35.       end if
  36.       printer(mDrawText, getAt(stampNames, PlaceNo), 0, eachHeight + 38)
  37.       printer(mSetTextSize, 14)
  38.       printer(mSetTextStyle, "normal,bold")
  39.     end if
  40.     if getAt(mucus, dayNo) <> 0 then
  41.       printer(mPicture, the picture of member ("miniMucus " & string(getAt(mucus, dayNo))), 112, eachHeight)
  42.       printer(mDrawText, "Mucus", 100, eachHeight - 5)
  43.     end if
  44.     if dayNo < count(stamp) then
  45.       if getAt(relations, dayNo) <> 0 then
  46.         printer(mPicture, the picture of member (relationName && string(getAt(relations, dayNo))), 215, eachHeight)
  47.         printer(mDrawText, "Relations", 200, eachHeight - 5)
  48.       end if
  49.     end if
  50.     printer(mTextBox, 0, 350, w, h, 0)
  51.     if getAt(comments, dayNo) <> " " then
  52.       printer(mSetTextStyle, "bold")
  53.       printer(mSetTextSize, 14)
  54.       printer(mAppendText, "Comments" & RETURN)
  55.       printer(mSetTextStyle, "normal,italic")
  56.       printer(mSetTextSize, 12)
  57.       printer(mAppendText, string(getAt(comments, dayNo)) & RETURN & RETURN)
  58.     end if
  59.     if getAt(advice, dayNo) <> 0 then
  60.       printer(mSetTextStyle, "normal, bold")
  61.       printer(mSetTextSize, 14)
  62.       printer(mAppendText, "Advice" & RETURN)
  63.       printer(mSetTextStyle, "normal")
  64.       printer(mSetTextSize, 12)
  65.       printer(mAppendText, the text of field ("advice" && string(getAt(advice, dayNo))) & RETURN & RETURN)
  66.     end if
  67.     if getAt(basis, dayNo) <> 0 then
  68.       printer(mSetTextStyle, "normal,bold")
  69.       printer(mSetTextSize, 14)
  70.       printer(mAppendText, " " & RETURN & "Explanation" & RETURN)
  71.       printer(mSetTextStyle, "normal")
  72.       printer(mSetTextSize, 12)
  73.       printer(mAppendText, the text of field ("basis" && string(getAt(basis, dayNo))) & RETURN & RETURN)
  74.     end if
  75.     cursor(0)
  76.   end if
  77. end
  78.  
  79. on mainPrintOrder
  80.   global printer, gPropFont, w, h
  81.   cursor(4)
  82.   printer(mReset)
  83.   printer(mSetLandscapeMode, 0)
  84.   printer(mSetDocumentName, "Nature's Method Order Form")
  85.   printer(mSetProgressMsg, "Nature's Method Order Form")
  86.   printer(mSetMargins, 60, 60, 60, 0)
  87.   set w to printer(mGetPageWidth)
  88.   set h to printer(mGetPageHeight)
  89.   printer(mSetPageNumSymbol, "√û")
  90.   printer(mSetTextFont, gPropFont)
  91.   printer(mSetTextSize, 14)
  92.   printer(mSetTextStyle, "normal,bold")
  93.   printer(mSetTextJust, "left")
  94.   printer(mDrawText, "FAF Order Form", 0, 8)
  95.   printer(mSetTextFont, gPropFont)
  96.   printer(mSetTextSize, 10)
  97.   printer(mSetTextStyle, "normal,italic")
  98.   printer(mSetTextJust, "right")
  99.   printer(mDrawText, the date, w, 8)
  100.   printer(mLine, 0, 18, w, 18)
  101.   printer(mSetTextJust, "left")
  102.   printer(mNewPage)
  103.   set w to printer(mGetPageWidth)
  104.   set h to printer(mGetPageHeight)
  105.   printer(mTextBox, 0, 30, w, 175, 0)
  106.   printer(mSetTextFont, gPropFont)
  107.   printer(mSetTextStyle, "normal,bold")
  108.   printer(mSetTextSize, 18)
  109.   printer(mSetTextJust, "center")
  110.   printer(mAppendText, "Express Service 1-800-443-3395" & RETURN & RETURN, 0)
  111.   printer(mTextBox, 0, 70, w, 175, 0)
  112.   printer(mSetTextFont, gPropFont)
  113.   printer(mSetTextStyle, "normal")
  114.   printer(mSetTextSize, 12)
  115.   printer(mSetTextJust, "left")
  116.   printer(mAppendText, the text of member "label" & RETURN, 0)
  117.   set begBox to 180
  118.   printer(mStrokedRect, 0, begBox, w, begBox + 300)
  119.   set columnWidth to w / 8
  120.   printer(mLine, columnWidth, begBox, columnWidth, begBox + 242)
  121.   repeat with i = 5 to 6
  122.     printer(mLine, i * columnWidth, begBox, i * columnWidth, begBox + 242)
  123.   end repeat
  124.   printer(mLine, 7 * columnWidth, begBox, 7 * columnWidth, begBox + 299)
  125.   set eachBox to begBox + 20
  126.   printer(mDrawText, "Cat #", 5, eachBox - 3)
  127.   printer(mDrawText, "Description", columnWidth + 7, eachBox - 3)
  128.   printer(mDrawText, "Price", (5 * columnWidth) + 7, eachBox - 3)
  129.   printer(mDrawText, "Quantity", (6 * columnWidth) + 7, eachBox - 3)
  130.   printer(mDrawText, "Amount", (7 * columnWidth) + 7, eachBox - 3)
  131.   printer(mLine, 0, eachBox, w - 1, eachBox)
  132.   repeat with i = 1 to 7
  133.     set eachBox to eachBox + 37
  134.     if (i = 4) or (i = 6) then
  135.       printer(mTextBox, 5, eachBox - 30, (5 * columnWidth) - 2, eachBox, 0)
  136.     else
  137.     end if
  138.     printer(mLine, 0, eachBox, w - 1, eachBox)
  139.   end repeat
  140.   printer(mSetTextJust, "right")
  141.   printer(mTextBox, 0, eachBox - 32, (7 * columnWidth) - 5, h, 0)
  142.   printer(mAppendText, "FAF Membership Discount", 0)
  143.   printer(mLine, 0, eachBox - 18, w - 1, eachBox - 18)
  144.   printer(mTextBox, 0, eachBox - 14, (7 * columnWidth) - 5, h, 0)
  145.   printer(mSetTextJust, "right")
  146.   printer(mAppendText, "Shipping", 0)
  147.   printer(mTextBox, 0, eachBox + 8, (7 * columnWidth) - 5, h, 0)
  148.   printer(mAppendText, "Total", 0)
  149.   printer(mTextBox, 0, 490, w, h, 0)
  150.   printer(mSetTextJust, "left")
  151.   printer(mAppendText, the text of member "pay" & RETURN, 0)
  152.   printer(mTextBox, 0, 623, w, h, 0)
  153.   printer(mSetTextFont, gPropFont)
  154.   printer(mSetTextStyle, "normal,bold")
  155.   printer(mSetTextSize, 12)
  156.   printer(mSetTextJust, "center")
  157.   printer(mAppendText, the text of member "address" & RETURN, 0)
  158.   printer(mNewPage)
  159.   printOrderInfo()
  160.   cursor(0)
  161. end
  162.  
  163. on printOrderInfo
  164.   global printer, gPropFont, w, h
  165.   cursor(4)
  166.   printer(mTextBox, 0, 25, w, h - 60, 0)
  167.   printer(mSetTextJust, "center")
  168.   AppendTitleText(the text of member "docTitle")
  169.   printer(mSetTextJust, "left")
  170.   set curCast to the number of member "docTitle" + 1
  171.   repeat while the name of member curCast = "Product"
  172.     AppendTitleText(the text of member curCast)
  173.     set curCast to curCast + 1
  174.   end repeat
  175. end
  176.  
  177. on printMonthlyCalendar
  178.   global printer, gPropFont, previewOnly, usrName, userNo, currentCycleNo, h, stamp, mucus, relations, endDate, beginDate
  179.   cursor(4)
  180.   set max to count(stamp)
  181.   set w to printer(mGetPageWidth)
  182.   set h to printer(mGetPageHeight)
  183.   set pages to 1
  184.   set min to 1
  185.   if (max * 15) > w then
  186.     set max to w / 25
  187.     set pages to (count(stamp) / max) + 1
  188.   end if
  189.   set last to max
  190.   repeat with Z = 1 to pages
  191.     printer(mTextBox, 0, 40, w, 150, 0)
  192.     printer(mSetTextSize, 12)
  193.     printer(mSetTextStyle, "normal,bold")
  194.     printer(mAppendText, getAt(usrName, userNo) & "'s Chart" & RETURN & RETURN)
  195.     printer(mSetTextSize, 10)
  196.     printer(mSetTextStyle, "normal")
  197.     printer(mAppendText, "Cycle #" & currentCycleNo & RETURN & RETURN & "First Entry: " && GetLongDate(beginDate) & RETURN & "Last Entry: " && GetLongDate(endDate))
  198.     if (max * 25) < w then
  199.       set eachWidth to 25
  200.     else
  201.       set eachWidth to w / max
  202.     end if
  203.     set eachHeight to 200
  204.     printer(mStrokedRect, -2, eachHeight - 20, w, eachHeight + (4 * eachWidth) + 4)
  205.     printer(mSetTextSize, 10)
  206.     printer(mSetTextStyle, "normal")
  207.     set loc to 1
  208.     repeat with i = min to last
  209.       if i > 9 then
  210.         set CorrectionNo to 6
  211.       else
  212.         set CorrectionNo to 2
  213.       end if
  214.       if the hilite of member "color" or (previewOnly = 1) then
  215.         set stampName to "ministamp"
  216.         set relationName to "miniRel"
  217.       else
  218.         set stampName to "graystamp"
  219.         set relationName to "grayrel"
  220.       end if
  221.       printer(mDrawText, string(i), (eachWidth * (loc - 1)) + (eachWidth / 2) - CorrectionNo, 194)
  222.       if getAt(stamp, i) <> 0 then
  223.         printer(mPicture, the picture of member (stampName && string(getAt(stamp, i))), eachWidth * (loc - 1), eachHeight, (eachWidth * loc) - 1, eachHeight + eachWidth)
  224.       end if
  225.       if getAt(mucus, i) <> 0 then
  226.         printer(mPicture, the picture of member ("miniMucus " & string(getAt(mucus, i))), eachWidth * (loc - 1), eachHeight + eachWidth + 1, (eachWidth * loc) - 1, eachHeight + 1 + (3 * eachWidth))
  227.       end if
  228.       if i < max then
  229.         if (getAt(relations, i) <> 0) and (getAt(relations, i) <> 4) then
  230.           printer(mPicture, the picture of member (relationName && string(getAt(relations, i))), eachWidth * (loc - 1), eachHeight + 2 + (3 * eachWidth), (eachWidth * loc) - 1, eachHeight + 2 + (4 * eachWidth))
  231.         end if
  232.       end if
  233.       set loc to loc + 1
  234.     end repeat
  235.     if not (the hilite of member "color") and (previewOnly = 0) then
  236.       printer(mSetTextFont, gPropFont)
  237.       printer(mSetTextSize, 14)
  238.       printer(mSetTextStyle, "normal,bold")
  239.       set diffSpace to 30
  240.       set heightSpace to h - 170
  241.       printer(mDrawText, "Key:", (w / 6) - 20, heightSpace + 20)
  242.       printer(mPicture, the picture of member "graystamp 1", w / 6, heightSpace + diffSpace)
  243.       printer(mDrawText, "Red Stamp", (w / 6) + 30, heightSpace + diffSpace + 18)
  244.       printer(mPicture, the picture of member "graystamp 2", w / 6, heightSpace + (2 * diffSpace))
  245.       printer(mDrawText, "Brown Stamp", (w / 6) + 30, heightSpace + (2 * diffSpace) + 18)
  246.       printer(mPicture, the picture of member "graystamp 3", w / 6, heightSpace + (3 * diffSpace))
  247.       printer(mDrawText, "White Baby Stamp", (w / 6) + 30, heightSpace + (3 * diffSpace) + 18)
  248.       printer(mPicture, the picture of member "graystamp 10", w / 6, heightSpace + (4 * diffSpace))
  249.       printer(mDrawText, "Peak Baby Stamp", (w / 6) + 30, heightSpace + (4 * diffSpace) + 18)
  250.       printer(mPicture, the picture of member "graystamp 4", w / 2, heightSpace + diffSpace)
  251.       printer(mDrawText, "Yellow Baby Stamp", (w / 2) + 30, heightSpace + diffSpace + 18)
  252.       printer(mPicture, the picture of member "graystamp 5", w / 2, heightSpace + (2 * diffSpace))
  253.       printer(mDrawText, "Brown Baby Stamp", (w / 2) + 30, heightSpace + (2 * diffSpace) + 18)
  254.       printer(mPicture, the picture of member "graystamp 6", w / 2, heightSpace + (3 * diffSpace))
  255.       printer(mDrawText, "Yellow Stamp", (w / 2) + 30, heightSpace + (3 * diffSpace) + 18)
  256.     end if
  257.     cursor(0)
  258.     if (pages > 1) and (Z < pages) then
  259.       set min to min + max
  260.       set last to last + max
  261.       if last > count(stamp) then
  262.         set last to count(stamp)
  263.       end if
  264.       printer(mNewPage)
  265.     end if
  266.   end repeat
  267. end
  268.  
  269. on printBioData
  270.   global printer, previewOnly, usrName, userNo, bioInfo, gPropFont, h
  271.   if not objectp(printer) then
  272.     cursor(0)
  273.     alert("There is no currently selected printer. Printing features are disabled.")
  274.   else
  275.     cursor(4)
  276.     printer(mReset)
  277.     printer(mSetLandscapeMode, 0)
  278.     setupprinting()
  279.     printer(mSetDocumentName, "Nature's Method Biographical Data")
  280.     printer(mSetProgressMsg, "Nature's Method Biographical Data")
  281.     set w to printer(mGetPageWidth)
  282.     set h to printer(mGetPageHeight)
  283.     printer(mTextBox, 0, 30, w, h - 24, 1)
  284.     printer(mSetTextFont, gPropFont)
  285.     printer(mSetTextSize, 12)
  286.     printer(mSetTextStyle, "normal,bold")
  287.     AppendTitleText("Biographical Data for" && getAt(usrName, userNo) & RETURN & RETURN)
  288.     if max(bioInfo) = 15 then
  289.       if min(bioInfo) <> 1 then
  290.         AppendTitleText(the text of field "profile 15" & RETURN & RETURN)
  291.       end if
  292.       set x to count(bioInfo)
  293.       repeat with i = 1 to x - 1
  294.         if (getAt(bioInfo, i) = 13) or (getAt(bioInfo, i) = 8) or (getAt(bioInfo, i) = 2) or (getAt(bioInfo, i) = 12) then
  295.           AppendTitleText(i & ")  " & the text of field ("profile 15-" & getAt(bioInfo, i)))
  296.           next repeat
  297.         end if
  298.         AppendTitleText(i & ")  " & the text of field ("profile" && getAt(bioInfo, i)))
  299.       end repeat
  300.     else
  301.       AppendTitleText(the text of field "profile 14" & RETURN & RETURN)
  302.       set x to count(bioInfo)
  303.       repeat with i = 1 to x - 1
  304.         if (getAt(bioInfo, i) = 13) or (getAt(bioInfo, i) = 8) or (getAt(bioInfo, i) = 2) or (getAt(bioInfo, i) = 12) then
  305.           AppendTitleText(i & ")  " & the text of field ("profile 14-" & getAt(bioInfo, i)))
  306.           next repeat
  307.         end if
  308.         AppendTitleText(i & ")  " & the text of field ("profile" && getAt(bioInfo, i)))
  309.       end repeat
  310.     end if
  311.     cursor(0)
  312.     printItNow()
  313.   end if
  314. end
  315.  
  316. on setupprinting
  317.   global printer, gPropFont, h, registered
  318.   printer(mSetMargins, 72, 60, 72, 48)
  319.   set w to printer(mGetPageWidth)
  320.   set h to printer(mGetPageHeight)
  321.   printer(mSetPageNumSymbol, "√û")
  322.   printer(mSetTextFont, gPropFont)
  323.   printer(mSetTextSize, 14)
  324.   printer(mSetTextStyle, "normal,bold")
  325.   printer(mSetTextJust, "left")
  326.   printer(mDrawText, "Nature's Method", 0, 8)
  327.   printer(mSetTextFont, gPropFont)
  328.   printer(mSetTextSize, 10)
  329.   printer(mSetTextStyle, "normal,italic")
  330.   printer(mSetTextJust, "right")
  331.   printer(mDrawText, the date, w, 8)
  332.   printer(mLine, 0, 18, w, 18)
  333.   if registered <> "BVM" then
  334.     printer(mDrawText, "Printed by an unregistered copy of Nature's Method.                                                             page √û", w, h - 2)
  335.   else
  336.     printer(mDrawText, "page √û", w, h - 2)
  337.   end if
  338.   printer(mSetTextJust, "left")
  339.   printer(mNewPage)
  340. end
  341.  
  342. on printItNow
  343.   global printer, previewOnly, registered
  344.   if previewOnly then
  345.     printer(mPrintPreview)
  346.   else
  347.     if printer(mDoJobSetup) = 1 then
  348.       updateStage()
  349.       printer(mPrint)
  350.       if registered <> "BVM" then
  351.         cursor(0)
  352.         alert("Your copy of Nature's Method is unregistered.  An order form will be printed.")
  353.         updateStage()
  354.         mainPrintOrder()
  355.         if printer(mDoJobSetup) = 1 then
  356.           printer(mPrint)
  357.         end if
  358.       end if
  359.     end if
  360.   end if
  361. end
  362.  
  363. on AppendTitleText txt
  364.   global printer, gPropFont
  365.   printer(mSetTextFont, gPropFont)
  366.   printer(mSetTextStyle, "bold")
  367.   printer(mSetTextSize, 14)
  368.   printer(mAppendText, line 1 of txt & RETURN, 1)
  369.   printer(mSetTextStyle, "normal")
  370.   printer(mSetTextSize, 10)
  371.   set countText to countText + printer(mAppendText, line 2 to the number of lines in txt of txt & RETURN & RETURN, 1)
  372. end
  373.  
  374. on AppendSpacedText txt
  375.   global printer, gPropFont
  376.   printer(mSetTextFont, gPropFont)
  377.   printer(mSetTextStyle, "normal")
  378.   repeat with cnt = 1 to the number of lines in txt
  379.     printer(mSetTextSize, 10)
  380.     printer(mAppendText, line cnt of txt)
  381.     printer(mSetTextSize, 14)
  382.     printer(mAppendText, " " & RETURN)
  383.   end repeat
  384. end
  385.  
  386. on mainPrintMonthly
  387.   global previewOnly, cycleNo, userNo, currentCycleNo
  388.   printer(mReset)
  389.   printer(mSetLandscapeMode, 1)
  390.   setupprinting()
  391.   printer(mSetDocumentName, "Nature's Method Monthly Calendar")
  392.   printer(mSetProgressMsg, "Nature's Method Monthly Calendar")
  393.   if the hilite of member "current monthly" then
  394.     if count(stamp) > 0 then
  395.       printMonthlyCalendar()
  396.       printItNow()
  397.     else
  398.       cursor(0)
  399.       alert("No days have been charted for this cycle.")
  400.       exit
  401.     end if
  402.   else
  403.     set A to integer(the text of field "begin number")
  404.     set Z to integer(the text of field "end number")
  405.     if integerp(Z) and integerp(A) then
  406.       if Z > getAt(cycleNo, userNo) then
  407.         set Z to getAt(cycleNo, userNo)
  408.       end if
  409.       if A < 1 then
  410.         set A to 1
  411.       end if
  412.       repeat with i = A to Z
  413.         set currentCycleNo to i
  414.         readCycleInfo()
  415.         if count(stamp) > 0 then
  416.           printMonthlyCalendar()
  417.         end if
  418.         if i < Z then
  419.           printer(mNewPage)
  420.         end if
  421.       end repeat
  422.       printItNow()
  423.     else
  424.       cursor(0)
  425.       alert("Please enter integer values for the Cycle #'s to be printed.")
  426.     end if
  427.   end if
  428.   if currentCycleNo <> getAt(cycleNo, userNo) then
  429.     set currentCycleNo to getAt(cycleNo, userNo)
  430.     readCycleInfo()
  431.   end if
  432. end
  433.  
  434. on mainPrintDaily
  435.   global previewOnly, cycleNo, userNo, currentCycleNo, endDate, beginDate, h
  436.   printer(mReset)
  437.   printer(mSetLandscapeMode, 0)
  438.   setupprinting()
  439.   printer(mSetDocumentName, "Nature's Method Daily Calendar")
  440.   printer(mSetProgressMsg, "Nature's Method Daily Calendar")
  441.   if the hilite of member "current daily" then
  442.     if count(stamp) > 0 then
  443.       set A to integer(the text of field "begin current daily")
  444.       set Z to integer(the text of field "end current daily")
  445.       if integerp(Z) and integerp(Z) then
  446.         if Z > count(stamp) then
  447.           set Z to count(stamp)
  448.         end if
  449.         if Z < 1 then
  450.           set Z to 1
  451.         end if
  452.         if A < 1 then
  453.           set A to 1
  454.         end if
  455.         repeat with i = A to Z
  456.           printDailyCalendar(i)
  457.           if i < Z then
  458.             printer(mNewPage)
  459.           end if
  460.         end repeat
  461.         printItNow()
  462.       else
  463.         cursor(0)
  464.         alert("Please enter integer values for the Day #'s to be printed.")
  465.       end if
  466.     else
  467.       cursor(0)
  468.       alert("No pages found to print for the current cycle.")
  469.       exit
  470.     end if
  471.   else
  472.     set A to integer(the text of field "begin number")
  473.     set Z to integer(the text of field "end number")
  474.     if integerp(Z) and integerp(A) then
  475.       set C to integer(the text of field "cycle number")
  476.       if (C > getAt(cycleNo, userNo)) or (C < 0) then
  477.         cursor(0)
  478.         alert("Invalid Cycle Number")
  479.         exit
  480.       else
  481.         set currentCycleNo to C
  482.         readCycleInfo()
  483.       end if
  484.       if count(stamp) > 0 then
  485.         if Z > count(stamp) then
  486.           set Z to count(stamp)
  487.         end if
  488.         if A < 1 then
  489.           set A to 1
  490.         end if
  491.         repeat with i = A to Z
  492.           printDailyCalendar(i)
  493.           if i < Z then
  494.             printer(mNewPage)
  495.           end if
  496.         end repeat
  497.         printItNow()
  498.       end if
  499.     else
  500.       cursor(0)
  501.       alert("Please enter integer values for the Day #'s to be printed.")
  502.     end if
  503.   end if
  504.   if currentCycleNo <> getAt(cycleNo, userNo) then
  505.     set currentCycleNo to getAt(cycleNo, userNo)
  506.     readCycleInfo()
  507.   end if
  508. end
  509.